\(\int \sqrt {\cos (c+d x)} \sqrt {a+a \sec (c+d x)} \, dx\) [401]

   Optimal result
   Rubi [A] (verified)
   Mathematica [A] (verified)
   Maple [A] (verified)
   Fricas [A] (verification not implemented)
   Sympy [F]
   Maxima [A] (verification not implemented)
   Giac [F]
   Mupad [F(-1)]

Optimal result

Integrand size = 25, antiderivative size = 36 \[ \int \sqrt {\cos (c+d x)} \sqrt {a+a \sec (c+d x)} \, dx=\frac {2 a \sin (c+d x)}{d \sqrt {\cos (c+d x)} \sqrt {a+a \sec (c+d x)}} \]

[Out]

2*a*sin(d*x+c)/d/cos(d*x+c)^(1/2)/(a+a*sec(d*x+c))^(1/2)

Rubi [A] (verified)

Time = 0.13 (sec) , antiderivative size = 36, normalized size of antiderivative = 1.00, number of steps used = 2, number of rules used = 2, \(\frac {\text {number of rules}}{\text {integrand size}}\) = 0.080, Rules used = {4349, 3889} \[ \int \sqrt {\cos (c+d x)} \sqrt {a+a \sec (c+d x)} \, dx=\frac {2 a \sin (c+d x)}{d \sqrt {\cos (c+d x)} \sqrt {a \sec (c+d x)+a}} \]

[In]

Int[Sqrt[Cos[c + d*x]]*Sqrt[a + a*Sec[c + d*x]],x]

[Out]

(2*a*Sin[c + d*x])/(d*Sqrt[Cos[c + d*x]]*Sqrt[a + a*Sec[c + d*x]])

Rule 3889

Int[Sqrt[csc[(e_.) + (f_.)*(x_)]*(b_.) + (a_)]/Sqrt[csc[(e_.) + (f_.)*(x_)]*(d_.)], x_Symbol] :> Simp[-2*a*(Co
t[e + f*x]/(f*Sqrt[a + b*Csc[e + f*x]]*Sqrt[d*Csc[e + f*x]])), x] /; FreeQ[{a, b, d, e, f}, x] && EqQ[a^2 - b^
2, 0]

Rule 4349

Int[(u_)*((c_.)*sin[(a_.) + (b_.)*(x_)])^(m_.), x_Symbol] :> Dist[(c*Csc[a + b*x])^m*(c*Sin[a + b*x])^m, Int[A
ctivateTrig[u]/(c*Csc[a + b*x])^m, x], x] /; FreeQ[{a, b, c, m}, x] &&  !IntegerQ[m] && KnownSecantIntegrandQ[
u, x]

Rubi steps \begin{align*} \text {integral}& = \left (\sqrt {\cos (c+d x)} \sqrt {\sec (c+d x)}\right ) \int \frac {\sqrt {a+a \sec (c+d x)}}{\sqrt {\sec (c+d x)}} \, dx \\ & = \frac {2 a \sin (c+d x)}{d \sqrt {\cos (c+d x)} \sqrt {a+a \sec (c+d x)}} \\ \end{align*}

Mathematica [A] (verified)

Time = 0.07 (sec) , antiderivative size = 39, normalized size of antiderivative = 1.08 \[ \int \sqrt {\cos (c+d x)} \sqrt {a+a \sec (c+d x)} \, dx=\frac {2 \sqrt {\cos (c+d x)} \sqrt {a (1+\sec (c+d x))} \tan \left (\frac {1}{2} (c+d x)\right )}{d} \]

[In]

Integrate[Sqrt[Cos[c + d*x]]*Sqrt[a + a*Sec[c + d*x]],x]

[Out]

(2*Sqrt[Cos[c + d*x]]*Sqrt[a*(1 + Sec[c + d*x])]*Tan[(c + d*x)/2])/d

Maple [A] (verified)

Time = 1.44 (sec) , antiderivative size = 41, normalized size of antiderivative = 1.14

method result size
default \(-\frac {2 \sqrt {\cos \left (d x +c \right )}\, \sqrt {a \left (1+\sec \left (d x +c \right )\right )}\, \left (\cot \left (d x +c \right )-\csc \left (d x +c \right )\right )}{d}\) \(41\)
risch \(-\frac {2 i \sqrt {\frac {a \left ({\mathrm e}^{i \left (d x +c \right )}+1\right )^{2}}{{\mathrm e}^{2 i \left (d x +c \right )}+1}}\, \sqrt {\cos \left (d x +c \right )}\, \left ({\mathrm e}^{i \left (d x +c \right )}-1\right )}{\left ({\mathrm e}^{i \left (d x +c \right )}+1\right ) d}\) \(69\)

[In]

int(cos(d*x+c)^(1/2)*(a+a*sec(d*x+c))^(1/2),x,method=_RETURNVERBOSE)

[Out]

-2/d*cos(d*x+c)^(1/2)*(a*(1+sec(d*x+c)))^(1/2)*(cot(d*x+c)-csc(d*x+c))

Fricas [A] (verification not implemented)

none

Time = 0.26 (sec) , antiderivative size = 49, normalized size of antiderivative = 1.36 \[ \int \sqrt {\cos (c+d x)} \sqrt {a+a \sec (c+d x)} \, dx=\frac {2 \, \sqrt {\frac {a \cos \left (d x + c\right ) + a}{\cos \left (d x + c\right )}} \sqrt {\cos \left (d x + c\right )} \sin \left (d x + c\right )}{d \cos \left (d x + c\right ) + d} \]

[In]

integrate(cos(d*x+c)^(1/2)*(a+a*sec(d*x+c))^(1/2),x, algorithm="fricas")

[Out]

2*sqrt((a*cos(d*x + c) + a)/cos(d*x + c))*sqrt(cos(d*x + c))*sin(d*x + c)/(d*cos(d*x + c) + d)

Sympy [F]

\[ \int \sqrt {\cos (c+d x)} \sqrt {a+a \sec (c+d x)} \, dx=\int \sqrt {a \left (\sec {\left (c + d x \right )} + 1\right )} \sqrt {\cos {\left (c + d x \right )}}\, dx \]

[In]

integrate(cos(d*x+c)**(1/2)*(a+a*sec(d*x+c))**(1/2),x)

[Out]

Integral(sqrt(a*(sec(c + d*x) + 1))*sqrt(cos(c + d*x)), x)

Maxima [A] (verification not implemented)

none

Time = 0.37 (sec) , antiderivative size = 20, normalized size of antiderivative = 0.56 \[ \int \sqrt {\cos (c+d x)} \sqrt {a+a \sec (c+d x)} \, dx=\frac {2 \, \sqrt {2} \sqrt {a} \sin \left (\frac {1}{2} \, d x + \frac {1}{2} \, c\right )}{d} \]

[In]

integrate(cos(d*x+c)^(1/2)*(a+a*sec(d*x+c))^(1/2),x, algorithm="maxima")

[Out]

2*sqrt(2)*sqrt(a)*sin(1/2*d*x + 1/2*c)/d

Giac [F]

\[ \int \sqrt {\cos (c+d x)} \sqrt {a+a \sec (c+d x)} \, dx=\int { \sqrt {a \sec \left (d x + c\right ) + a} \sqrt {\cos \left (d x + c\right )} \,d x } \]

[In]

integrate(cos(d*x+c)^(1/2)*(a+a*sec(d*x+c))^(1/2),x, algorithm="giac")

[Out]

sage0*x

Mupad [F(-1)]

Timed out. \[ \int \sqrt {\cos (c+d x)} \sqrt {a+a \sec (c+d x)} \, dx=\int \sqrt {\cos \left (c+d\,x\right )}\,\sqrt {a+\frac {a}{\cos \left (c+d\,x\right )}} \,d x \]

[In]

int(cos(c + d*x)^(1/2)*(a + a/cos(c + d*x))^(1/2),x)

[Out]

int(cos(c + d*x)^(1/2)*(a + a/cos(c + d*x))^(1/2), x)